home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d20
/
xlax_253.arc
/
PCP.S24
< prev
next >
Wrap
Text File
|
1991-09-28
|
1KB
|
87 lines
/* General-purpose PC-Pursuit dialing script for use with Opus 1.10 or later */
/* Tries once at 2400 bps (if possible), and then once at 1200 bps */
/* This is an EXAMPLE script. Modify it for your own needs */
init
baud
:telenet
/* Insert your local Telenet access phone number into the next line */
xmit ~~AT|~~ATS0=0X4DTtelenet|
pattern 0 CONNECT
pattern 1 RING
pattern 2 TONE
pattern 3 BUSY
wait
if 0 goahead
goto end
:goahead
xmit ~~~~~~|~D~|
pattern 0 =
pattern 1
pattern 2
pattern 3
wait 10
xmit D1|
pattern 0 @
wait 10
xmit C ~
areacode
xmit /
speed
/* Insert your PC-Pursuit username into the next line (ALL CAPS!!) */
xmit ,USERNAME|
pattern 0 =
wait 10
/* Insert your PC-Pursuit password into the next line (ALL CAPS!!) */
xmit PASSWORD|
pattern 0 CONNECTED
pattern 1 BUSY
wait 20
if 0 gotit
if bps1200 giveup
if bps300 giveup
xmit HANGUP|~~v~^
baud 1200
goto telenet
:gotit
xmit ~~|~~I|~~ATZ|
pattern 0 OK
pattern 1
wait 10
xmit |@|
pattern 0 @
wait 10
xmit SET 1:0|
wait 10
xmit CONT|~~ATZ|
pattern 0 OK
wait 10
/* Next line should equal "xmit ^E|" / "xmit \005|" / "xmit "+chr$(5)+"|" */
xmit |
pattern 0 *
wait 10
xmit D
phone
xmit |
pattern 0 LINE
pattern 1 BUSY
pattern 2 FAILED
wait
if 1 giveup
if 2 giveup
xmit ~~ ||
pattern 0 name:
pattern 1 Sea
pattern 2 SEA
pattern 3 later.
wait
xmit ~~~~
session